home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / basic / aa_array.zip / AA-ARRAY.TXT < prev    next >
Text File  |  1994-12-13  |  4KB  |  66 lines
  1. 'Open
  2. Declare Function AryOpen Lib "AA-Array.dll" (ByVal aryName_s As String, ByVal userTypeDefinition_s As String, ByVal mode As Integer, ByVal password_s As String) As Integer
  3. Declare Function AryOpenInteger Lib "AA-Array.dll" (ByVal aryName_s As String, ByVal mode As Integer, ByVal password_s As String) As Integer
  4. Declare Function AryOpenLong Lib "AA-Array.dll" (ByVal aryName_s As String, ByVal mode As Integer, ByVal password_s As String) As Integer
  5. Declare Function AryOpenSingle Lib "AA-Array.dll" (ByVal aryName_s As String, ByVal mode As Integer, ByVal password_s As String) As Integer
  6. Declare Function AryOpenDouble Lib "AA-Array.dll" (ByVal aryName_s As String, ByVal mode As Integer, ByVal password_s As String) As Integer
  7. Declare Function AryOpenCurrency Lib "AA-Array.dll" (ByVal aryName_s As String, ByVal mode As Integer, ByVal password_s As String) As Integer
  8. Declare Function AryOpenString Lib "AA-Array.dll" (ByVal aryName_s As String, ByVal mode As Integer, ByVal password_s As String) As Integer
  9.  
  10. 'Close
  11. Declare Function AryClose Lib "AA-Array.dll" (ByVal ary_h As Integer) As Integer
  12. Declare Sub AryAbort Lib "AA-Array.dll" (ByVal ary_h As Integer)
  13.  
  14. 'Bounds
  15. Declare Sub ArySetBounds Lib "AA-Array.dll" (ByVal ary_h As Integer, ByVal minElement As Long, ByVal maxElement As Long)
  16. Declare Sub AryGetBounds Lib "AA-Array.dll" (ByVal ary_h As Integer, minElement As Long, maxElement As Long)
  17. Declare Function AryCheckIndex Lib "AA-Array.dll" (ByVal ary_h As Integer, ByVal row_l As Long) As Integer
  18.  
  19. 'Set Elements
  20. Declare Sub ArySetElement Lib "AA-Array.dll" (ByVal ary_h As Integer, ByVal row_l As Long, value As Any)
  21. Declare Sub ArySetInteger Lib "AA-Array.dll" Alias "ArySetElement" (ByVal ary_h As Integer, ByVal row_l As Long, value As Integer)
  22. Declare Sub ArySetLong Lib "AA-Array.dll" Alias "ArySetElement" (ByVal ary_h As Integer, ByVal row_l As Long, value As Long)
  23. Declare Sub ArySetSingle Lib "AA-Array.dll" Alias "ArySetElement" (ByVal ary_h As Integer, ByVal row_l As Long, value As Single)
  24. Declare Sub ArySetDouble Lib "AA-Array.dll" Alias "ArySetElement" (ByVal ary_h As Integer, ByVal row_l As Long, value As Double)
  25. Declare Sub ArySetCurrency Lib "AA-Array.dll" Alias "ArySetElement" (ByVal ary_h As Integer, ByVal row_l As Long, value As Currency)
  26. Declare Sub ArySetString Lib "AA-Array.dll" (ByVal ary_h As Integer, ByVal row_l As Long, value As String)
  27.  
  28. 'Get Elements
  29. Declare Sub AryGetElement Lib "AA-Array.dll" (ByVal ary_h As Integer, ByVal row_l As Long, value As Any)
  30. Declare Sub AryGetInteger Lib "AA-Array.dll" Alias "AryGetElement" (ByVal ary_h As Integer, ByVal row_l As Long, value As Integer)
  31. Declare Sub AryGetLong Lib "AA-Array.dll" Alias "AryGetElement" (ByVal ary_h As Integer, ByVal row_l As Long, value As Long)
  32. Declare Sub AryGetSingle Lib "AA-Array.dll" Alias "AryGetElement" (ByVal ary_h As Integer, ByVal row_l As Long, value As Single)
  33. Declare Sub AryGetDouble Lib "AA-Array.dll" Alias "AryGetElement" (ByVal ary_h As Integer, ByVal row_l As Long, value As Double)
  34. Declare Sub AryGetCurrency Lib "AA-Array.dll" Alias "AryGetElement" (ByVal ary_h As Integer, ByVal row_l As Long, value As Currency)
  35. Declare Sub AryGetString Lib "AA-Array.dll" (ByVal ary_h As Integer, ByVal row_l As Long, value As String)
  36.  
  37. 'Deletes
  38. Declare Sub AryDeleteElement Lib "AA-Array.dll" (ByVal ary_h As Integer, ByVal row_l As Long)
  39. Declare Sub AryDeleteAll Lib "AA-Array.dll" (ByVal ary_h As Integer)
  40.  
  41. 'Information
  42. Declare Function AryIsEmptyElement Lib "AA-Array.dll" (ByVal ary_h As Integer, ByVal row_l As Long) As Integer
  43. Declare Function AryGetStatus Lib "AA-Array.dll" (ByVal ary_h As Integer) As Integer
  44. Declare Function AryVersion Lib "AA-Array.dll" (ByVal info_i As Integer) As String
  45.  
  46. 'AryOpen Modes
  47. Const AryUseExisting = 0
  48. Const AryCreateNew = 1
  49. Const AryReadOnly = 2
  50. Const AryReadWrite = 0
  51. Const AryNonPersistent = 4
  52. Const AryPersistent = 0
  53.  
  54. 'Error Codes
  55. const AryErrNoFreeSlots = -1
  56. const AryErrPersistentFileNotFound =  -2
  57. const AryErrInvalidHandle = -3
  58. const AryErrFileHeaderSize = -4
  59. const AryErrMemAllowExtendedArray = -5
  60. const ArrErrCreatePersistentFile = -6
  61. const ArrErrBoundsError = -7
  62. const ArrErrInvalidUserType = -8
  63. const ArrErrElementNotAllowcated = -9
  64. const ArrErrUserTypesMisMatch = -10
  65.  
  66.